home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh25.d64
/
floppy srq
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
46 lines
10 REM OPEN 1,8,1,"0:FLOPPY SRQ.OBJ"
12 REM OPEN 2,4
13 SYS 32768; EINSPRUNG FUER NEUEN PROFIASS
14 ;
15 ; **************************
16 ; * FLOPPY SERVICE REQUEST *
17 ; * *
18 ; * VON UWE GERLACH *
19 ; * TEL. 06151/316205 *
20 ; * BZW. 06622/3908 *
21 ; * *
22 ; * 13.06.86 *
23 ; **************************
24 ;
25 ;
26 ; UEBER DATA-LINE DES SERIELLEN BUS
27 ; AN DEN COMPUTER
30 ;
31 ;
100 .TIT "SERVICE REQUEST C64 & VC1541 "
120 .OPT OO
125 ;
130 *=$0500; IM USERPUFFER DER FLOPPY
140 ;
500 START LDA $1C00; PORT B DES DC ABFRAGEN
510 AND #%00010000; LICHTSCHRANKENBIT ISOLIEREN
520 BEQ AUS
530 :
600 EIN LDA $1C00;PORT B DES DC ABFRAGEN
610 ORA #%00001000; LED-BIT SETZEN
620 STA $1C00; LED EINSCHALTEN
650 ;
660 LDA $1800; PORT B DES BC ABFRAGEN
670 AND #%11111101; DATA OUT-BIT LOESCHEN
680 STA $1800; DATA OUT NACH LOW ZIEHEN
690 JMP START
695 ;
700 AUS LDA $1C00;PORT B DES DC ABFRAGEN
710 AND #%11110111; LED-BIT LOESCHEN
720 STA $1C00; LED AUSSCHALTEN
750 ;
760 LDA $1800; PORT B DES BC ABFRAGEN
770 ORA #%00000010; DATA OUT-BIT SETZEN
780 STA $1800; DATA OUT FREIGEBEN
790 JMP START